object FrmVerificaErrosConfigs: TFrmVerificaErrosConfigs
  Left = 0
  Top = 0
  Caption = 'VERIFICA ERROS CONFIGS'
  ClientHeight = 566
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 635
    Height = 566
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'PRINCIPAL'
      object Memo1: TMemo
        Left = 0
        Top = 308
        Width = 627
        Height = 204
        Align = alBottom
        PopupMenu = PopupMenu1
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object Panel6: TPanel
        Left = 0
        Top = 0
        Width = 627
        Height = 41
        Align = alTop
        TabOrder = 1
        object BtnExecutar: TButton
          Left = 16
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Executar'
          TabOrder = 0
          OnClick = BtnExecutarClick
        end
        object BtnCarregarRegras: TButton
          Left = 100
          Top = 8
          Width = 109
          Height = 25
          Caption = 'Carregar Regras'
          TabOrder = 1
          OnClick = BtnCarregarRegrasClick
        end
      end
      object StatusBar1: TStatusBar
        Left = 0
        Top = 512
        Width = 627
        Height = 26
        Panels = <>
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 41
        Width = 627
        Height = 144
        Align = alTop
        Caption = 'REGRAS SQL'
        TabOrder = 3
        object CLB1: TCheckListBox
          Left = 2
          Top = 15
          Width = 623
          Height = 127
          Align = alClient
          ItemHeight = 13
          PopupMenu = PopupMenu1
          TabOrder = 0
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 185
        Width = 627
        Height = 123
        Align = alClient
        Caption = 'REGRAS FIXAS'
        TabOrder = 4
        object CLB2: TCheckListBox
          Left = 2
          Top = 15
          Width = 623
          Height = 106
          Align = alClient
          ItemHeight = 13
          Items.Strings = (
            'Movimentos de destino que n'#227'o baixam estoque'
            'Movimentos de origem/destino que baixam estoque 2 vezes')
          PopupMenu = PopupMenu1
          TabOrder = 0
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'REGRA'
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 368
        Width = 627
        Height = 170
        Align = alBottom
        DataSource = UDSRegras
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
      end
      object DBSynEdit1: TDBSynEdit
        Left = 0
        Top = 86
        Width = 627
        Height = 118
        DataField = 'SQL_REGRA'
        DataSource = UDSRegras
        Align = alBottom
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 1
        Gutter.Font.Charset = DEFAULT_CHARSET
        Gutter.Font.Color = clWindowText
        Gutter.Font.Height = -11
        Gutter.Font.Name = 'Courier New'
        Gutter.Font.Style = []
        Highlighter = SynSQLSyn1
      end
      object Panel1: TPanel
        Left = 0
        Top = 346
        Width = 627
        Height = 22
        Align = alBottom
        Caption = 'LISTA DE REGRAS'
        TabOrder = 2
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 226
        Width = 627
        Height = 120
        Align = alBottom
        DataSource = UDSRegrasParametros
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnEnter = DBGrid3Enter
        OnExit = DBGrid3Exit
      end
      object Panel2: TPanel
        Left = 0
        Top = 204
        Width = 627
        Height = 22
        Align = alBottom
        Caption = 'LISTA DE PAR'#194'METROS'
        TabOrder = 4
      end
      object Panel3: TPanel
        Left = 0
        Top = 34
        Width = 627
        Height = 30
        Align = alBottom
        TabOrder = 5
        object Label1: TLabel
          Left = 12
          Top = 6
          Width = 70
          Height = 13
          Caption = 'NOME REGRA:'
        end
        object Label2: TLabel
          Left = 311
          Top = 6
          Width = 92
          Height = 13
          Caption = 'CAMPO RETORNO:'
        end
        object DBEdit1: TDBEdit
          Left = 82
          Top = 6
          Width = 223
          Height = 21
          DataField = 'NOME_REGRA'
          DataSource = UDSRegras
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 410
          Top = 6
          Width = 167
          Height = 21
          DataField = 'CAMPO_RETORNO_REGRA'
          DataSource = UDSRegras
          TabOrder = 1
        end
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 627
        Height = 34
        Align = alClient
        TabOrder = 6
        object BtnFechar: TButton
          Left = 336
          Top = 3
          Width = 75
          Height = 25
          Caption = 'Fechar'
          TabOrder = 0
          OnClick = BtnFecharClick
        end
        object BtnExcluir: TButton
          Left = 255
          Top = 3
          Width = 75
          Height = 25
          Caption = 'Excluir'
          TabOrder = 1
          OnClick = BtnExcluirClick
        end
        object BtnSalvar: TButton
          Left = 93
          Top = 3
          Width = 75
          Height = 25
          Caption = 'Salvar'
          TabOrder = 2
          OnClick = BtnSalvarClick
        end
        object BtnCancelar: TButton
          Left = 174
          Top = 3
          Width = 75
          Height = 25
          Caption = 'Cancelar'
          TabOrder = 3
          OnClick = BtnCancelarClick
        end
        object BtnInserir: TButton
          Left = 12
          Top = 3
          Width = 75
          Height = 25
          Caption = 'Inserir'
          TabOrder = 4
          OnClick = BtnInserirClick
        end
        object Button1: TButton
          Left = 456
          Top = 3
          Width = 75
          Height = 25
          Caption = 'Teste'
          TabOrder = 5
          OnClick = Button1Click
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 64
        Width = 627
        Height = 22
        Align = alBottom
        Caption = 'SQL'
        TabOrder = 7
      end
    end
  end
  object SynSQLSyn1: TSynSQLSyn
    Options.AutoDetectEnabled = False
    Options.AutoDetectLineLimit = 0
    Options.Visible = False
    Left = 368
    Top = 176
  end
  object cdsRegras: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOME'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SQL'
        DataType = ftString
        Size = 2000
      end
      item
        Name = 'PARAMETROS'
        DataType = ftBlob
      end
      item
        Name = 'PARAMETROSStr'
        DataType = ftString
        Size = 5000
      end
      item
        Name = 'CampoRetorno'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 96
    Top = 168
    Data = {
      B60000009619E0BD010000001800000005000000000003000000B600044E4F4D
      4501004900000001000557494454480200020032000353514C02004900000001
      0005574944544802000200D0070A504152414D4554524F5304004B0000000100
      075355425459504502004900070042696E617279000D504152414D4554524F53
      53747202004900000001000557494454480200020088130C43616D706F526574
      6F726E6F01004900000001000557494454480200020014000000}
    object cdsRegrasNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object cdsRegrasSQL: TStringField
      FieldName = 'SQL'
      Size = 2000
    end
    object cdsRegrasPARAMETROSStr: TStringField
      FieldName = 'PARAMETROSStr'
      Size = 5000
    end
    object cdsRegrasCampoRetorno: TStringField
      FieldName = 'CampoRetorno'
    end
  end
  object cdsRegrasParametros: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 176
    Top = 168
    Data = {
      4D0000009619E0BD0100000018000000020000000000030000004D00044E4F4D
      4501004900000001000557494454480200020014000556414C4F520100490000
      0001000557494454480200020014000000}
    object cdsRegrasParametrosNOME: TStringField
      FieldName = 'NOME'
    end
    object cdsRegrasParametrosVALOR: TStringField
      FieldName = 'VALOR'
    end
  end
  object dsRegras: TDataSource
    DataSet = cdsRegras
    OnDataChange = dsRegrasDataChange
    Left = 384
    Top = 128
  end
  object dsRegrasParametros: TDataSource
    DataSet = cdsRegrasParametros
    Left = 480
    Top = 128
  end
  object uqTemp: TUniQuery
    Connection = DM.UniConnection1
    Left = 552
    Top = 272
  end
  object InterBaseUniProvider1: TInterBaseUniProvider
    Left = 256
    Top = 120
  end
  object uqRegras: TUniQuery
    Connection = DM.UCConfigs
    SQL.Strings = (
      'select * from regra')
    Active = True
    Left = 200
    Top = 256
    object uqRegrasID_REGRA: TIntegerField
      FieldName = 'ID_REGRA'
      Required = True
    end
    object uqRegrasNOME_REGRA: TStringField
      FieldName = 'NOME_REGRA'
      Size = 100
    end
    object uqRegrasSQL_REGRA: TStringField
      FieldName = 'SQL_REGRA'
      Size = 10000
    end
    object uqRegrasCAMPO_RETORNO_REGRA: TStringField
      FieldName = 'CAMPO_RETORNO_REGRA'
    end
  end
  object uqRegrasParametros: TUniQuery
    Connection = DM.UCConfigs
    SQL.Strings = (
      'select * from regra_parametro')
    MasterSource = UDSRegras
    MasterFields = 'ID_REGRA'
    DetailFields = 'ID_REGRA'
    Active = True
    Left = 200
    Top = 312
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ID_REGRA'
        ParamType = ptInput
        Value = 6
      end>
    object uqRegrasParametrosID_PARAMETRO: TIntegerField
      FieldName = 'ID_PARAMETRO'
      Visible = False
    end
    object uqRegrasParametrosID_REGRA: TIntegerField
      FieldName = 'ID_REGRA'
      Required = True
      Visible = False
    end
    object uqRegrasParametrosNOME_PARAMETRO: TStringField
      FieldName = 'NOME_PARAMETRO'
    end
    object uqRegrasParametrosVALOR_PARAMETRO: TStringField
      DisplayWidth = 20
      FieldName = 'VALOR_PARAMETRO'
      Size = 200
    end
  end
  object UDSRegras: TUniDataSource
    DataSet = uqRegras
    OnDataChange = UDSRegrasDataChange
    Left = 312
    Top = 264
  end
  object UDSRegrasParametros: TUniDataSource
    DataSet = uqRegrasParametros
    OnDataChange = UDSRegrasParametrosDataChange
    Left = 312
    Top = 312
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    Top = 32
    object Selecionartodos1: TMenuItem
      Caption = 'Selecionar todos'
      OnClick = Selecionartodos1Click
    end
  end
end
